perm filename 60.F4[NEW,LCS] blob sn#165252 filedate 1975-06-21 generic text, type T, neo UTF8
00100		DIMENSION I(72)
00200	1	FORMAT(I,72A1)
00300	2	FORMAT(72A1/////)
00400	4	READ(1,1,END=3) K,I
00500		WRITE(21,2)I
00600		GO TO 4
00700	3	END FILE 21
00800		END